Public Class UIOutputsEditor
    Inherits System.Drawing.Design.UITypeEditor

    Public Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object
        Dim objMyOutputs As MyOutputs = CType(value, MyOutputs)

        If objMyOutputs.Updated Then
            With New frmOutputs(objMyOutputs)
                .ShowDialog()
            End With
        Else
            MessageBox.Show(Language.ReadOutputs("msgBUILD"), My.Application.Info.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If

        Return objMyOutputs
    End Function

    Public Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
        Return Drawing.Design.UITypeEditorEditStyle.Modal
    End Function

End Class
